![]() | Helpline Q&A Directory | ||
Keep your internet connection alive
Option Explicit Dim IE Set IE = WScript.CreateObject("InternetExplorer.Application") IE.AddressBar = False IE.StatusBar = False IE.ToolBar = False IE.MenuBar = False IE.Visible = True IE.Width = 640 IE.Height = 480 Dim timenow timenow = Now On Error Resume Next Refresh WScript.Quit Sub Refresh Do While IE.Visible IE.Navigate "http://www.somewebsite.com/" WScript.Sleep(120000) Loop End Sub Note that Set IE = WScript should be all on one line and that http://www.somewebsite.com/ should be replaced by a real web address of your choice. You can vary the width and height values to fit the page you're displaying. Save the file as keepalive.vbs and then run it. The script should open an Internet Explorer window and display the web page you chose. It will reload the page every two minutes, keeping the connection open. If Windows doesn't know what to do when you try to run keepalive.vbs you haven't got Windows Scripting installed on your PC. You can download the latest version from http://msdn.microsoft.com/scripting | |||
© 2002 PC Advisor |